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MODULE OTSSSCCB paya. C ! Dor base for 
~PDENT ! File: OTSCCB 


OTS$S$CCB_DATA 


LUB/1°3/ 
DAT. BS) Edit: JBS1002 


ie COPYRIGHT («) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS. RESERVED D. 


| 
yore 
; § | 
: | 
3 4 
; 5 1 | 
3 § 1 
: 1 * 
s ). 1 * 
3 § 09 «1 * | 
: 10 10 #1 * 
ms, 11 1 te * 
3 1 \¢ 1 '® THIS SUFTWARE IS FURNISHED revere & a AND MAY BE USED AND COPIED * 
oe 15.1 !* ONLY IN ACCORDANCE WITH SUCH LICENSE AND WITH THE * 
ee | 014 1 !* INCLUSION OF THE ABOVE COPrRicut eROTICe. THIS SOFTWARE OR ANY OTHER * 
eee: 15 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 1 1 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
: 4 ; : ? TRANSFERRED. * 
3 ‘ft * 
. i3 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: 1 9 1 } os CORPORATION. * 
3 ; * 
3 : 00 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $e BB ¢ : i. SOFTWAPE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. a 
3 6 00 1 !e * 
3 $f 88 I eRe REAR AAAA AERA EAAAAAEAAREAAE ERATE AAAATAEAAAAAAEAAAAAAEHARERE AEE 
; 8 8 1 
: 9 0029 1 !+4¢4 
3 + , : H FACILITY: Language support Library 
3 é 00 § 1 ! ABSTRACT: 
3 0035 1! 
g site 1! This module holds the OWN storage for heniquicting 
; 5 0035 1! the CCB (the LUB/ISB/RAB). The data in this module 
: $ B38 : is referenced by OTS$$CCB and FORSSCB. 
3 38 sts } ENVIRONMENT: User mode, AST level or not or mixed 
: 40 0040 1 ! AUTHOR: John Sauter, 16-AUG-1979 
ee} Boe) 1! 
3 ¢g org : : MODIFIED BY: 
: 646 4 1 ! 1-001 = Original, from orssscce version 1-047. JBS 16-AUG-1979 
s 6§ 5 1! 1-002 = Initialize OTSS$L_CUR_LUN and OTSSSL_LVL_CTR at Link time, 
; 4 neo 1! since FORTRAN gotsn’ Et call any initTalization code. 
s 6 2. JBS 14-JAN-198 
; 48 : 1 !e- 
; 69 Bae 1 
; 050 1 !<BLF/PAGE> 
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SWITCHES: 


+ + 


> +++ 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 


+ 


> 


=f=?= 
POC 


TABLE OF CONTENTS: 
NONE 
INCLUDE FILES: 


REQUIRE ‘RTLML:OTSISB'; ! get length of ISB 
REQUIRE ‘RTLML:OTSLUB'; ! get Length of LUB 
REQUIRE “*RTLIN:RTLPSECT’; ! Define DECLARE_PSECTs macro 


PAP IN SOO w VOR HO Do0 GO 


REQUIRE ‘RTLIN: OTSCCBREQ'; ! Define interface to OTSS$PUSH_CCB 


~ ~ USSS SS SS 


GLOBAL 
OTSSS$A_CUR_LUB : INITIAL (0), ! Contains the address of the current 1/0 


i Bit 0 of the following longword is zero if the queue headers have not 
: yet been set up. 


OTSS$$V_CCB_INIT : VOLATILE INITIAL (0), 


; 
, 
? 
05 
4 B3 LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbols 
ose 1! 
1 097 i MACROS: 
Hy 0379 NONE 
5 3 1 : EQUATED SYMBOLS: 
3 : NONE 
03 5 PSECT DECLARATIONS: 
03 DECLARE_PSECTS (OTS); ! declare PSECTs for OTSS facility 
03 GLOBAL STORAGE: 
5 
5 
; 
5 
5 
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] 

! The following quadwords constitute queue headers, one for each LUN. 
! Each queue will normally either be capty (meaning that no LUB is 

! allocated) or contain one item, the LUB. The field LUBSQ_QUEUE is 
! used for the queve Linkage. Under certain circumstances a second 

! LUB may be placed in the queue and then quickly removed. 
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TAB : VOLATILE OTSSS$LUB_TAB_ST ! 
ILUN_MIN * LUBSK_LUN_MAR + T, LUBSK_ILUN_MINI, 


OTRSSCCB_DATA 16-8 


09 


OTSShAA 


BISA 


ew O0@ 


! Each bit of the following BITVECTOR corresponds to a LUN. The bit is | 
! set if there is any 1/0 activity outstanding for the LUN. The bit 

! mus kept here rather than in the LUB because there can be 1/0 
activity outstanding even before the LUB is allocated. 


OTSS$V_IOINPROG : VOLATILE BITVECTOR ' 
(T=LUBSK_ILUN_MIN * LUBSK_LUN_MAX + ZBPVAL)/ZBPVAL) *%BPY \LJ, 


The following cell contains the logical unit number of the current 
unit. It is used in place of OTSSSAA_CUR_LUB when pushing to avoid 
@ problem with removing the LUB from Ehe CUB table prior to 
Geallocating it. When it contains a value one greater than the max 
} permitted value then there is no current LUB. 


OTSSSL_CUR_LUN : INITIAL (LUBSK_LUN_MAX + 1), 

i The following cell acts as a level counter. For efficiency the 

! LUN pushing and popping routines are not called at the top level 
! because, first, they would have nothing useful to do and, second, 
: the top level is used much more frequently than the lower levels. 
OTSSSL_LVL_CTR : INITIAL (-1), 


'¢ 

! The following vector of bits is used to record ownership of each LUN. 

! If the bit corresponding to a particular language is set, the Language 
| 
| 


1 
1 
1 
1 
1 
1 
1 
1 
1 
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; owns the LUN. 


OTSS$V_LUN_OWNR : BLOCKVECTOR [-LUBSK_ILUN_MIN + LUBSK_LUN_MAX + 1, ! 
((CUBSK_LANG_MAX + ZBPUNIT)/ZBPUNIT), BYTE); 


w 


EXTERNAL REFERENCES: 


! End of module OTS$$CCB_DATA 
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TITLE OTSSS$CCB_DATA 
IDENT \1-002\ 


~PSECT _OTSSDATA,NOEXE, PIC,2 


00000000 00000 OTSSSA_CUR_LUB:: 


LONG 0 
00000000 00004 oTsssv_cés INIT: 
00008 OTS$$AA_LUB_TAB:: . 
-BLRB 1024 
00408 OTS$$V_IOINPROG: : 
-BLKB 


16 


bein nsen 


00000078 00418 siete Lusso. 
FFFFFFFF O041C OTSSSL_LVL_CTR:: , 


. LONG 
00420 OTS$$V_LUN_OWNR: : 
.BCkKB 128 


ot38 CCB_DATA 


PSECT SUMMARY 
Name Bytes 
_OTSSDATA 


Attributes 
1184 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, 


Library Statistics 


: woceeee= Symbols -------- Pages 
: File Total Loaded Percent Mapped 
[ _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 

; COMMAND QUALIFIERS 


BLISS/CHECK=CFIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#L1S$:OTSCCBDAT/0BJ=08J8: 0TSCCBDAT MSRC$:OTSCCBDAT/UPDATE=(ENHS$:OTSCCBDAT 


Size: 0 code + 1184 data bytes 
un Time 82: 3 
phe y Time: " 
Lines/CPU Min 120 
Lenenes/CPU-Ain: 631 
4 Used: 86 pages 
Compilation Complete 


paren) OL leant V4.0-74 
LIBRTL.SRCJOTSCCBDAT.B32;1 


CON, PIC,ALIGN(2) 


Processing 
Time 
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